home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ACCTREFS.SRC < prev    next >
Text File  |  1990-11-03  |  2KB  |  139 lines
  1. ;\|
  2. ;ACCTREFS.SRC     Translated from ACCTREFS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;ACCOUNT  01:02:02 PM   5/ 3/88                    |
  4. ;Program generated with the report writer|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(COMMODE|A|2||)
  18.     co(COMMODE|G)
  19.     clrscr
  20.     clrlne(1|25)
  21.     open(ACCOUNT|COMMODE||EXIT)
  22.     gosub GET.DATE
  23.     mount(REPORT|R|P)
  24.     pchr(P|10)
  25.     pchr(P|11)
  26.     pchr(P|4)
  27.     pchr(P|1)
  28.     trap(P|S|TOF)
  29.     gosub TOF
  30.     trap(I|G|FINI)
  31.     pfmt(9|||N|N|)
  32.     find(B|PRINT.ORDER    |NO.RECS)
  33.     if TYPE.OF.ACCOUNT <> ("N") goto RD.NEXT
  34. PRT.REC:
  35.     pfmt(6||||)
  36.     TOT.RECS = (TOT.RECS + 1)
  37. RD.NEXT:
  38.     find(N|ACCOUNT |FINI)
  39.     if PRINT.ORDER = (499) then pfmt(8|||N|N|)
  40.     if TYPE.OF.ACCOUNT <> ("N") goto RD.NEXT
  41.     goto PRT.REC
  42. FINI:
  43.     pfmt(5||||)
  44.     pfmt(8||||)
  45.     pblnk(2)
  46.     pfmt(7||||)
  47.     trap(P|D|)
  48.     ptof
  49.     run("TRANS")
  50. TOF:
  51.     PAGE = (PAGE + 1)
  52.     pfmt(1||||)
  53.     pfmt(2||||)
  54.     pfmt(3||||)
  55.     pblnk(1)
  56.     pfmt(4||||)
  57.     pfmt(5||||)
  58.     ret
  59. GET.DATE:
  60.     time(CHG.TIME|G)
  61.     date(CHG.DATE|G)
  62.     AM.PM = ("AM")
  63.     if CHG.TIME > (43199) doO 
  64.         {
  65.         AM.PM = ("PM")
  66.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  67.         }
  68.     TIME.STRG =mid(CHG.TIME|1|8|)
  69.     STDDAYS =day(CHG.DATE)
  70.     STDMONTH =xmt(CHG.DATE)
  71.     STDAYH =mid(CHG.DATE|4|2|)
  72.     STDYEAR =mid(CHG.DATE|7|4|)
  73.     PG.STRG = (PAGE)
  74.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  75.     ret
  76. NO.RECS:
  77.     pmsg("There are no records in the ACCOUNT  file "|1|24|Y|||)
  78. EXIT:
  79.     run("TRANS")
  80. \R REPORT  
  81.                      "ACCOUNTING ENTRY CODES FOR ACCOUNT NO:& "
  82.                 &
  83.                                  Page # &
  84. PRINT.ORDER  ACCOUNT.NAME                    NOMINAL.ACCOUNT
  85. -----------  ------------------------------  ---------------
  86. &            &                               &
  87. Total number of records printed: &
  88. EXPENDITURE
  89. INCOME
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129. \
  130. COMMODE
  131. DATE.TIME.FLD
  132. PAGE
  133. PRINT.ORDER
  134. ACCOUNT.NAME
  135. ACCOUNT.REF
  136. TOT.RECS
  137. \
  138.  
  139.